home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dflow.arc / ERRORS.PRG < prev    next >
Text File  |  1985-05-14  |  319b  |  22 lines
  1. *      SAMPLE UNINDENTED PROGRAM WITH ERRORS ADDED IN lowercase
  2. DO WHILE .NOT. EOF
  3. case X = 1
  4. IF X > 0
  5. DO CASE
  6. CASEx = 1
  7. STORE '1' TO Y
  8. CASE X = 2
  9. STORE '2 TO Y
  10. OTHERWISE
  11. STORE 'O' TO Y
  12. ENDCASE
  13. DO PROCESS
  14. ELSE
  15. ? "Found zero value"
  16. RETURN
  17. ENDIF
  18. SKIP
  19. * moved ENDDO one line forward
  20. RETURN
  21. enddo
  22. xHI